www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_adminnews1.asp
<!--#include file="conn.asp"-->
<!--#include file="check.asp" -->
<%
select case request("action")
case ""
call main()
case "dell"
call dell()
case "dellall"
call dellall()
end select
sub main()
%>
<%
Const PAGESIZE=20
Const PARTSIZE=10
url=""
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from tsm_news1 where 1=1 "&wheres&" order by id desc"
rs.open sql,conn,1,1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
page = 1
elseif page > pagecount then
page = pagecount
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
function selectSomeone( theForm ) //检查，列表中的信息是否有被选择的。return false，表没有被选择的。
{
for (var i=0; i<theForm.elements.length; i++)
{
var e = theForm.elements[i];
if ( e.checked )
return true;
}
return false;
}
function Hello(){
if ( !selectSomeone( form3 ))
{
alert( "请您选中要操作的信息！");
return false;
}
else
{
if(confirm("提示：删除后不能恢复，确定删除选中的信息吗？")==true){
return (true);
}
return(false);
}
}
</script>
<!--#include file="top.htm" -->
<br>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>信 息 管 理</b></font></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#E3E3E3" class="text">
<tr bgcolor="#F6F6F6">
<td width="5%" align="center" height="25" bgcolor="#F6F6F6">选择</td>
<td width="35%" align="center" height="25" bgcolor="#F6F6F6">信息标题</td>
<td width="20%" align="center" height="25" bgcolor="#F6F6F6">发表时间</td>
<td width="5%" align="center" height="25" bgcolor="#F6F6F6">修改</td>
<td width="5%" align="center" height="25" bgcolor="#F6F6F6">删除</td>
</tr>
<form method="post" action="?action=dellall" name="form3" OnSubmit="return Hello()">
<%if RS.EOF then
Response.Write("<tr><td colspan=10 bgcolor=#FFFFFF><center><font color=red>目前还没有内容!</font></td></tr>")
else
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
%>
<tr bgcolor="#FFFFFF" onMouseOver="this.bgColor='#F6F6F6'" onMouseOut="this.bgColor='FFFFFF'">
<td height="20" align="center" valign="middle"><input type="checkbox" name="checkbox" value="<% = rs("id")%>"></td>
<td height="20" align="center" valign="middle"><%=JieQuZiFu(30,rs("title"))%></td>
<td height="20" align="center" valign="middle"><%= rs("Time1") %></td>
<td align="center" valign="middle"><a href="Manage_modnews1.asp?action=Modify&id=<%= rs("id")%>"><img src="img/edit.gif" width="12" height="12" border="0"></a></td>
<td height="20" align="center" valign="middle"><a href="?action=dell&id=<%= rs("id") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除？删除数据将无法逆回！');"><img src="img/icon_del.gif" width="13" height="13" border="0"></a></td>
</tr>
<%
RS.MoveNext()
if RS.EOF then exit for
next
end if
%>
<tr valign="middle" bgcolor="#F7F7F7">
<td height="20" colspan="10"> <input type="checkbox" id="chkAll" name="chkAll" value="checkbox" onClick="CheckAll(this.form)"> 全选/取消全选 <input type="submit" name="Submit3" value="彻底删除"></td>
</tr>
</form>
<tr align="center" valign="middle" bgcolor="#F7F7F7">
<td height="20" colspan="10"><!--#include file="page.asp"--></td>
</tr>
</table>
</body>
</html>
<%
end sub
sub dell
id = Request("id")
sql="delete from tsm_news1 where id=" & id
conn.execute sql
response.Redirect("Manage_adminnews1.asp")
%>
<%
end sub
%>
<%
sub dellall()
checkbox=Request("Checkbox")
s=split(checkbox,",")
for i=0 to Ubound (s)
sql="delete from tsm_news1 where id = " & s(i)
conn.execute sql
next
response.Redirect("Manage_adminnews1.asp")
end sub
%>